home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / time / time_61-70 / time_70 / dia_2 / install / diainstall.lst < prev   
File List  |  1993-11-04  |  3KB  |  119 lines
  1. '
  2. '       *************************************************************
  3. '       *****                                                   *****
  4. '       *****    DiaInstall V2.0 - © in 1992 by Stefan Hirth    *****
  5. '       *****                                                   *****
  6. '       *************************************************************
  7. '
  8. '       Die Sterne in Programm zeigen, an welcher Stelle Besitzer nur
  9. '       eines Laufwerkes Disketten wechseln müssen
  10. '
  11. ALERT 0,"DiaInstall V2.0|GFA-Basic-Programm|von Stefan Hirth|June 27th, MCMXCII",1,"Weiter",i|
  12. ALERT 0,"Sie sollten mit Ihrer|normalen Startdiskette|gebootet haben!",1,"OK|Abbruch",i|
  13. '
  14. akdir$=DIR$(0)
  15. '
  16. IF i|=2
  17.   END
  18. ENDIF
  19. '
  20. copy$="RAM:Copy_dia_tmp"
  21. '
  22. ' ******************************************************* WORKBENCH
  23. '
  24. IF EXIST("C:Copy")=FALSE
  25.   ALERT 0,"Sie benötigen den|COPY-Befehl|im C-Verzeichnis|der Bootdisk",1,"Abbruch",i|
  26.   END
  27. ELSE
  28.   EXEC "Copy C:Copy "+copy$,-1,-1
  29. ENDIF
  30. '
  31. CHDIR "SYS:"
  32. i%=DFREE(0)
  33. '
  34. IF i%<40000
  35.   ALERT 0,"Es sollten noch etwa|40 KB|frei sein!",1,"Abbruch|Weiter",i|
  36.   IF i|=1
  37.     END
  38.   ENDIF
  39. ENDIF
  40. '
  41. tmp$="RAM:DiaInstall_tmp"
  42. ss$="S:Startup-Sequence"
  43. '
  44. CHDIR akdir$
  45. '
  46. req$="LIBS:req.library"
  47. IF NOT EXIST(req$)
  48.   ALERT 0,"Installiere|REQ-Library|im LIBS: - Dir",1,"OK|Nein!",i|
  49.   IF i|=1
  50.     ' *************************************************** DIA
  51.     EXEC copy$+" "+akdir$+"req.library "+tmp$,-1,-1
  52.     ' *************************************************** WORKBENCH
  53.     EXEC copy$+" "+tmp$+" "+req$,-1,-1
  54.   ENDIF
  55. ELSE
  56.   ALERT 0,"REQ-Library|ist schon vorhanden.",1," OK ",i|
  57. ENDIF
  58. '
  59. rt$="LIBS:reqtools.library"
  60. IF NOT EXIST(rt$)
  61.   ALERT 0,"Installiere|RT-Library|im LIBS: - Dir",1,"OK|Nein!",i|
  62.   IF i|=1
  63.     ' *************************************************** DIA
  64.     EXEC copy$+" "+akdir$+"reqtools.library "+tmp$,-1,-1
  65.     ' *************************************************** WORKBENCH
  66.     EXEC copy$+" "+tmp$+" "+rt$,-1,-1
  67.   ENDIF
  68. ELSE
  69.   ALERT 0,"REQTOOLS-Library|ist schon vorhanden.",1," OK ",i|
  70. ENDIF
  71. '
  72. rtp$="C:RTPatch"
  73. IF NOT EXIST(rtp$)
  74.   ALERT 0,"Befehl|RTPatch|kopieren ?",1,"OK|Nein!",i|
  75.   IF i|=1
  76.     ' *************************************************** DIA
  77.     EXEC copy$+" "+akdir$+"RTPatch "+tmp$,-1,-1
  78.     ' *************************************************** WORKBENCH
  79.     EXEC copy$+" "+tmp$+" "+rtp$,-1,-1
  80.   ENDIF
  81. ELSE
  82.   ALERT 0,"Befehl RTPatch|ist schon vorhanden.",1," OK ",i|
  83. ENDIF
  84. '
  85. ALERT 0,"Fertig, um die|Startup-Sequence|zu patchen ?",1,"OK|Nein!",i|
  86. IF i|=1
  87.   IF EXIST(ss$)
  88.     OPEN "I",#1,ss$
  89.     OPEN "O",#2,tmp$
  90.     PRINT #2,"RTPatch >NIL:"
  91.     WHILE NOT EOF(#1)
  92.       LINE INPUT #1,z$
  93.       PRINT #2,z$
  94.       IF z$="RTPatch >NIL:"
  95.         schon_installiert!=TRUE
  96.       ENDIF
  97.     WEND
  98.     CLOSE
  99.     IF schon_installiert!=FALSE
  100.       EXEC copy$+" "+tmp$+" "+ss$,-1,-1
  101.     ELSE
  102.       ALERT 0,"Die Startup-Sequence|ist schon erwei-|tert worden!",1," OK ",i|
  103.     ENDIF
  104.   ELSE
  105.     ALERT 0,ss$+"|existiert nicht!",1,"Abbruch",i|
  106.   ENDIF
  107. ENDIF
  108. '
  109. IF EXIST(tmp$)
  110.   KILL tmp$
  111. ENDIF
  112. '
  113. IF EXIST(copy$)
  114.   KILL copy$
  115. ENDIF
  116. '
  117. ALERT 0,"Ciao|und viel Spaß|mit DIA V2.0|wünscht|STEFAN HIRTH",1,"Danke!",i|
  118. END
  119.